home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctj0587.arc / HEADER.ASM < prev    next >
Assembly Source File  |  1987-03-19  |  765b  |  24 lines
  1. ; Program to store program segment prefix in intra-applications   
  2. ;   communications area, then transfer control to a version 3.3
  3. ;   Microsoft Fortran program
  4. ; Copyright (C)  John W. Ross  1986
  5.  
  6. ICA    equ    4f2h    ; intra-applications communication area
  7.  
  8. extrn    __astart:far    ; Fortran program entry point
  9. cseg    segment para public 'code'
  10. public    header 
  11. header    proc far
  12.     assume cs:cseg,es:nothing
  13.     push ds        ; save the data segment
  14.     xor dx,dx    ; zero the data register
  15.     mov ds,dx
  16.     mov bx,ICA    ; bx now points to the ICA
  17.     mov dx,es    ; store the extra segment (psp 
  18.     mov [bx],dx    ;   location) in the ICA
  19.     pop ds        ; restore ds
  20.     jmp __astart    ; jump to the Fortran program's entry point
  21. header    endp
  22. cseg    ends
  23.     end    header    ; make this program the entry point
  24.